home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 14 Bulletin Boards / IMEMPR.SDA / +.ÅMPIRE 4.3 (.txt) next >
Commodore BASIC  |  2019-04-13  |  11KB  |  235 lines
  1. 1 &,37:TY=0
  2. 2 X=RND(-TI):POKE53252,6:A=8:GOSUB1004:E9=A:&"[139][139]\C4[195]HECKING [212]O [211]EE"
  3. 4 &" [201]F [217]OU'RE [193]LIVE....":GOSUB68:GOSUB1012:X=1:REM IFVAL(A$)THEN38
  4. 6 GOSUB1002:&,2,2:ON-(A$=NA$)GOTO20:X=X+1:IFX<25THEN6
  5. 8 &"[139][139]\C2[193]HA! [193] [206]EW [214]ICTIM![139]":X=1
  6. 10 GOSUB1002:&,2,2:G3=X:ON-(A$="EMPTY")GOTO14:X=X+1:ON-(X<25)GOTO10:CLOSE2
  7. 12 &"[139]\C5[211]ORRY, [193]LL [197][205][208][201][210][197][211] [193]RE [198]ULL.[139]\C3[212]RY [193]GAIN [206]EXT [195]ALL.[139][139]":GOTO106
  8. 14 A=INT(RND(1)*300)+2000:W$=NA$+R$+"5000"+R$+"20"+R$+STR$(A)+R$+"2"
  9. 16 W$=W$+R$+"10000"+R$+"15"+R$+"1000"+R$+"0"+R$+"0"+R$+"0"+R$+"0"+R$+"0"+R$+"0"
  10. 17 W$=W$+R$+"0"+R$+"0"
  11. 18 X=G3:GOSUB1002:PRINT#2,W$:&"[139][139]\CO[207]K, [193]LL [211]ET...":GOSUB1002:&,2,2
  12. 20 G3=X:INPUT#2,LA,WA,SF,NB,GR,TR,PN,F%(1),F%(2),F%(3),F%(4),F%(5),F%(6),YC,I8
  13. 22 CLOSE2:IFG3=PEEK(900)ANDPEEK(899)>4ANDE9<1THEN90
  14. 24 IFG3<>PEEK(900)THENPOKE900,G3:POKE901,.:POKE899,.
  15. 25 GOSUB402:IFPN<0THENPN=0:&"[139][139]\CM[203]ING [199]EORGE BRINGS YOU OUT OF DEBT!"
  16. 26 FF=.:VG=.:GOSUB394:&"[139][139]\CN[217]OUR [195]OMMAND\CL \V8\CO\V2?[139]\CN>>\CO":GOSUB1006
  17. 27 IFTR%<1THEN105
  18. 28 GOSUB102:ON-(AN$="[209]")-(AN$="[195]"ORAN$="[208]")*2GOTO105,110
  19. 30 ON-(AN$="[218]")-(AN$="[212]")*2-(AN$="[205]")*3GOTO38,108,420
  20. 32 ON-(AN$="[207]")-(AN$="[206]")*2-(AN$="[201]")*3GOSUB56,92,104
  21. 34 IFAN$="[137]"THENGOSUB354
  22. 36 GOTO26
  23. 38 ON-(E9<1)GOTO26:&"[139][139]\C7[210]ESET? :":GOSUB1902:IFA=0THEN106
  24. 40 GOSUB96:IFA=0THEN106
  25. 41 W$="EMPTY"+R$+"0"
  26. 42 A$="E.EMPIRE4,L,"+CHR$(100):DR=3:GOSUB1011:GOSUB1012:IFE%=0THEN46
  27. 44 CLOSE2:&"[197][210][210][207][210]! \V6":LP=1:GOTO26
  28. 46 FORX=1TO24:GOSUB1002:PRINT#2,W$:NEXT:CLOSE2:GOTO26
  29. 48 W$=NA$+R$+STR$(LA)+R$+STR$(WA)+R$+STR$(SF)+R$+STR$(NB)
  30. 50 W$=W$+R$+STR$(GR)+R$+STR$(TR)+R$+STR$(PN)+R$+STR$(F%(1))+R$+STR$(F%(2))
  31. 52 W$=W$+R$+STR$(F%(3))+R$+STR$(F%(4))+R$+STR$(F%(5))+R$+STR$(F%(6))
  32. 53 W$=W$+R$+STR$(YC)+R$+STR$(I8)
  33. 54 GOSUB68:X=G3:GOSUB1002:PRINT#2,W$:CLOSE2:RETURN
  34. 56 SH=.:&"[139]\C2([211]PACE=[193]BORT)[139][139] \C3[207][212][200][197][210] [210][213][204][197][210][211]\C1[139]\VZ":GOSUB68:X=1
  35. 58 GOSUB1002:INPUT#2,AN$:IFLEFT$(AN$,5)="EMPTY"ORAN$=NA$ORLEFT$(AN$,1)="0"THEN64
  36. 60 GOSUB1002:INPUT#2,AN$,B:B$=RIGHT$(" "+STR$(X),2)
  37. 62 AN$=LEFT$(AN$+"...............",20):&"[139]\CO\V6> \CN\V7\C3:"+STR$(B)
  38. 64 IFRCORSH=47THEN:&"[139]\C2([193]BORTED)[139]":X=25
  39. 66 X=X+1:ON-(X<25)GOTO58:CLOSE2:RETURN
  40. 68 A$="E.EMPIRE4":DR=3:GOTO1011
  41. 70 B$=STR$(G3):AN$=STR$(LA)
  42. 72 &"[139][139]\C3\V2 (#\V6)[139][139]\CN[204]AND     : \V7 [193]CRES[139][205]ONEY    :$"+STR$(PN)
  43. 74 B$=STR$(GR):AN$=STR$(TR)
  44. 76 &"[139][199]RAIN    : \V6 [194]USHELS[139][212]AX [210]ATE : \V7%[139][211]OLDIERS : "+STR$(WA)
  45. 78 B$=STR$(SF):AN$=STR$(NB)
  46. 80 &"[139][211]ERFS    : \V6[139][206]OBLES   : \V7":GOSUB98
  47. 82 B$=STR$(10*F%(1)):AN$=STR$(F%(2))
  48. 84 &"\C3[208]ALACE   : \V6% [195]OMPLETED.[139][205]ARKETS  : \V7[139][205]ILLS    : "+STR$(F%(3))
  49. 86 B$=STR$(F%(4)):AN$=STR$(F%(5))
  50. 88 &"[139][198]OUNDRIES: \V6[139][211]HIPYARDS: \V7[139][196]IPLOMATS: "+STR$(F%(6))
  51. 89 &"[139][211]HIPS    : "+STR$(YC)+"[139][195]OLONYS  : "+STR$(I8):GOTO98
  52. 90 &"[139][139]\C2[212]HE [207]THER [210]ULERS [213]NITE [212]HEIR [198]ORCES[139][193]GAINST [217]OU [198]OR \C3[200]OGGING"
  53. 91 &" [212]HE [199]AME!![139]\W3":GOTO106
  54. 92 &"[139][139]\C1[198]IGHT [206]EWS -->[139][139]":A$="E.EMPNEWS4":DR=3:GOSUB1076
  55. 94 &"\VZ\C3-->[205]ORE [213]PDATES [204]ATER.[139]":RETURN
  56. 96 &"\C1[139][139][193]RE [217]OU [211]URE? :":GOTO1902
  57. 98 &"[139][139]\C1\R1 ([208]RESS [193] [203]EY) \R0[139]\G1[139]"
  58. 100 RETURN
  59. 102 ON-(AN$="[217]")GOTO70:RETURN
  60. 104 A$="S.EMPDOCS":DR=1:GOSUB1075:RETURN
  61. 105 GOSUB48
  62. 106 CLOSE2:CLOSE15:&,28:GOTO1812
  63. 108 &"[139][139]\C4[200]EADING [212]O [212]HE [212]OWN...."
  64. 109 DR=5:A$="EMPTOWN4":GOTO1067
  65. 110 &"[139][139]\CO[201]T IS A NEW [217]EAR...\W3\CN[139][139]":WC=INT(6*RND(1))+1:FF=0
  66. 112 IFD2$="[197][205][208][197][210][207][210] "THENWC=INT(4*RND(1))+1
  67. 114 IFWC=1THEN:&"[208]OOR [215]EATHER. [206]O [210]AIN. [204]OCUSTS [205]IGRATE."
  68. 116 IFWC=2THEN:&"[197]ARLY [198]ROSTS. [193]RID [195]ONDITIONS."
  69. 118 IFWC=3THEN:&"[198]LASH [198]LOODS. [212]OO [205]UCH [210]AIN."
  70. 120 IFWC=4THEN:&"[193]VERAGE [215]EATHER. [199]OOD [217]EAR."
  71. 122 IFWC=5THEN:&"[198]INE [215]EATHER. [204]ONG [211]UMMER."
  72. 124 IFWC=6THEN:&"[198]ANTASTIC [215]EATHER! [199]REAT [217]EAR!"
  73. 128 DF=INT(RND(1)*9)
  74. 130 ONDFGOTO132,152,156,140,148:GOTO162
  75. 132 &"[139][139][139]\R1\C2 [208] [204] [193] [199] [213] [197] ! ! ! [139]\CO[194]LACK [196]EATH [200]AS [211]TRUCK!\C1[139][139]"
  76. 134 X=INT(RND(1)*SF/4):SF=SF-X:&STR$(X)+" SERFS DIED.[139]"
  77. 136 X=INT(RND(1)*WA/2):WA=WA-X:&STR$(X)+" SOLDIERS DIED.[139]"
  78. 138 X=INT(RND(1)*NB/3):NB=NB-X:&STR$(X)+" NOBLES DIED.\CO[139][139]":GOTO162
  79. 140 &"[139][139][139]\R1\C2[205]OUNT [193]POCALYPSE [200]AS [197]RUPTED!!\R0[139] [204]AVA [215]IPES [207]UT-\CO[139]"
  80. 142 X=INT(RND(1)*F%(2)/3):F%(2)=F%(2)-X:&STR$(X)+" [205]ARKETS.[139]"
  81. 144 X=INT(RND(1)*F%(3)/4):F%(3)=F%(3)-X:&STR$(X)+" [205]ILLS.[139]"
  82. 146 X=INT(RND(1)*F%(4)/3):F%(4)=F%(4)-X:&STR$(X)+" [198]OUNDRIES.[139][139]":GOTO162
  83. 148 X=INT(RND(1)*F%(5)/2):F%(5)=F%(5)-X:&"[139][139][139]\S1\C6[212][201][196][193][204] [215][193][214][197]!!! [139]"
  84. 150 &STR$(X)+"\S0\CN [211]HIPYARDS ARE UNDER WATER! [139][139]":GOTO162
  85. 152 X=INT(RND(1)*GR/3):GR=GR-X:&"[139][139][139][197]EEAK! \C5[210]ATS EAT"+STR$(X)
  86. 154 &" BUSHELS OF GRAIN.[139][139]":GOTO162
  87. 156 IFF%(1)>0ANDNB>0THENF%(1)=F%(1)-1:NB=NB-1:&"[139][139]\P4\C9[197][193][210][212][200][209][213][193][203][197]!\P0[139]":GOSUB160
  88. 158 GOTO162
  89. 160 &"\C810% OF YOUR [208]ALACE WAS DESTROYED![139]1 NOBLE WAS KILLED.[139]":RETURN
  90. 162 &"[139][139]\CO[217]OU HAVE\C1"+STR$(LA)+" \COACRES OF LAND.":GOSUB276:IFTR%<1THEN105
  91. 164 WB=WC*3+12:ON-(AN$="[194]")-(AN$="[211]")*2-(AN$="[195]")*3GOTO166,176,188:GOSUB102:GOTO162
  92. 166 &"[139][139]\C5[212]HE [194]ARBARIANS WILL SELL THEIR LAND FOR\C1"+STR$(WB)+" \C5DOLLARS"
  93. 168 &" AN ACRE.":GOSUB272:IFTR%<1THEN105
  94. 170 BL=VAL(AN$):IFBL<1THEN162
  95. 172 IFPN<(BL*WB)THEN:&"[139]\C7[217]OU ONLY HAVE"+STR$(PN)+" DOLLARS!":GOTO166
  96. 174 PN=PN-(BL*WB):LA=LA+BL:&"[139]\C7[194]OUGHT!":GOTO188
  97. 176 WB=INT(WB/(INT(LA/875)+1))
  98. 178 &"[139][139]\C5[212]HE [194]ARBARIANS WILL BUY YOUR LAND FOR\C1"+STR$(WB)+" \C5DOLLARS"
  99. 180 &" AN ACRE.":GOSUB274:IFTR%<1THEN105
  100. 182 SL=VAL(AN$):IFSL<1THEN162
  101. 184 IFSL>LA-1THEN:&"[139]\C7[217]OU ONLY HAVE"+STR$(LA)+" ACRES!":GOTO178
  102. 186 LA=LA-SL:PN=PN+(WB*SL):&"[139]\C7[211]OLD!"
  103. 188 &"[139][139]\C5[217]OU HAVE\C1"+STR$(GR)+" \C5[194]USHELS OF GRAIN.":GOSUB276:IFTR%<1THEN105
  104. 190 WB=INT(6/WC):ON-(AN$="[194]")-(AN$="[211]")*2-(AN$="[195]")*3GOTO192,204,214:GOSUB102:GOTO188
  105. 192 &"[139][139]\C5[212]HE [194]ARBARIANS WILL SELL THEIR GRAIN FOR\C1"+STR$(WB)+" \C5DOLLARS"
  106. 194 &" A BUSHEL.":GOSUB272
  107. 196 IFTR%<1THEN105
  108. 198 BG=VAL(AN$):IFBG<1THEN188
  109. 200 IFPN<BG*WBTHEN:&"\C4[217]OU ONLY HAVE"+STR$(PN)+" DOLLARS!":GOTO164
  110. 202 PN=PN-BG*WB:GR=GR+BG:&"[139]\C4[194]OUGHT!":GOTO214
  111. 204 WB=(INT(1/WC)+1)/2:&"[139][139]\C5[212]HE [194]ARBARINAS WILL BUY YOUR GRAIN FOR\C1"
  112. 206 &STR$(WB)+" \C5DOLLARS A BUSHEL.":GOSUB274:IFTR%<1GOTO105
  113. 208 SG=VAL(AN$):IFSG<1THEN188
  114. 210 IFSG>GRTHEN:&"[139]\C4[217]OU ONLY HAVE"+STR$(GR)+" BUSHELS!":GOTO204
  115. 212 GR=GR-SG:PN=INT(PN+(SG*WB)):&"[139]\C4[211]OLD!"
  116. 214 X=INT((LA*WC+(RND(1)*SF)*WC+GR*WC)/3):IFX>(LA+SF)*4THENX=(LA+SF)*4
  117. 216 &"[139][139]\CO[212]HIS YEAR'S HARVEST IS\C7"+STR$(X)+" BUSHELS.\CO[139]"
  118. 218 GR=GR+X:PL=1:PR=SF*5+1
  119. 220 &"[139]\CN[217]OUR PEOPLE REQUIRE"+STR$(PR)+" BUSHELS.[139]\C3[199]IVE THEM HOW MANY? \CO"
  120. 222 GOSUB1006:GP=INT(VAL(AN$)):IFTR%<1THEN105
  121. 223 IFGR<=.THENGP=.:GA=.:&"[139]\CJ[217]OU HAVE NO GRAIN LEFT!!":GOTO236
  122. 224 IFGP>GRTHEN:&"[139]\C7[217]OU ONLY HAVE"+STR$(GR)+" BUSHELS!":GOTO220
  123. 226 ON-(GP<.)GOTO220:IFGP=.ANDLEFT$(AN$,1)<>"0"THENGP=PR
  124. 227 GR=GR-GP:&"[139] :"+STR$(GP)
  125. 228 AR=WA*10+1:&"[139][139]\CN[217]OUR ARMY REQUIRES"+STR$(AR)+" BUSHELS.[139]\C3[199]IVE THEM"
  126. 230 &" HOW MANY? \CO":GOSUB1006:GA=INT(VAL(AN$)):IFTR%<1THEN105
  127. 231 IFGR<=.THENGA=.:&"[139]\CJ[217]OU HAVE NO GRAIN LEFT!!":GOTO236
  128. 232 IFGA>GRTHEN:&"[139][139]\C7[217]OU ONLY HAVE"+STR$(GR)+" BUSHELS!\CO":GOTO228
  129. 234 ON-(GA<.)GOTO228:IFGA=.ANDLEFT$(AN$,1)<>"0"THENGA=AR
  130. 235 GR=INT(GR-GA):&"[139] :"+STR$(GA):IFGR<.THENGR=.
  131. 236 &"[139][139]\C3[210]EPORT: -->\C1[212]HIS [217]EAR\C3<--[139]":GD=GP/PR:AD=GA/AR:PD=.
  132. 238 IFGD<1THENPD=INT(((PR-GP)/5)-INT(RND(1))*((PR-GP)/5+30))
  133. 240 PD=PD*ABS(PD>.):ON-(GD>.8ORGD>RND(1))GOTO252
  134. 242 &"[139]\CO[217]OUR [195]ASTLE WAS RANSACKED BY[139]A HORDE OF STARVING SERFS!!![139][139]"
  135. 244 A=F%(2):GOSUB278:F%(2)=A:A=F%(3):GOSUB278:F%(3)=A:A=F%(4):GOSUB278:F%(4)=A
  136. 246 A=F%(5):GOSUB278:F%(5)=A:WA=.:PN=.
  137. 248 GR=.:AF=1:NB=INT(NB/2):LA=INT(LA/2):SF=INT(SF/2):GOSUB392
  138. 250 GOSUB394:&"\CL"+D2$+"\CO"+NA$+"'[211] \C1[197]MPIRE [215]AS [200][193][204][214][197][196]!!!"
  139. 251 PRINT#2,"\CN\VZ\C1"+D1$:PRINT#2,A$:CLOSE2:GOSUB48:GOTO280
  140. 252 DN=INT(RND(1)*(SF/10)+20):BB=INT(RND(1)*(SF/12)+10)
  141. 254 PI=INT(RND(1)*(SF/15)+20-TR+RND(1)*(LA/1000))
  142. 256 TP=BB+PI-PD-DN:ZN$="GAINED":IFTP<0THENZN$="LOST"
  143. 258 &"[139]\C1"+STR$(PD)+" \CJPEOPLE STARVED.[139]"+STR$(BB)+" [150]BABIES WERE BORN.[139]"
  144. 260 &"\C1"+STR$(DN)+" \CJDIED NATURALLY.[139]"+STR$(PI)+" \CJPEOPLE IMMIGRATED."
  145. 262 &"[139][139]\C3[217]OUR POPULATION \C1"+ZN$+STR$(ABS(TP))+" \C3CITIZENS.":SF=SF+TP
  146. 264 SF=SF*ABS(SF>.):&"[139]\C3[206]EW [208]OPULATION IS\C1"+STR$(SF)+"\C4."
  147. 266 AF=.:IFGA<ARTHENAF=1
  148. 268 IFAF=1THEN:&"[139][139]\CO[217]OUR ARMY IS IMMOBOLIZED THIS YEAR!"
  149. 270 GOTO280
  150. 272 &"[139][139]\C3[194]UY HOW MANY? \CO":GOSUB1006:ONTR%<1GOTO105:RETURN
  151. 274 &"[139][139]\C3[211]ELL HOW MANY? \CO":GOSUB1006:ONTR%<1GOTO105:RETURN
  152. 276 &"[139]\C3 [194])UY   [217])OUR [211]TATS[139] [211])ELL  [195])ONTINUE[139]\CN>>\CO":GOSUB1006:ONTR%<1GOTO105:RETURN
  153. 278 A=A-INT(RND(0)*A):RETURN
  154. 280 IF(RND(1)*TR<25)OR(RND(1)>.1)THEN288
  155. 282 H=INT(RND(1)*4+1)+2:&"[139][139]\C2[207]N THE WAY BACK FROM THE BANK,[139]YOU WERE BEATEN"
  156. 284 &" UNCONSCIOUS BY THIEVES![139][212]HEY TOOK"+STR$(H)+"% OF YOUR CASH...[139]"
  157. 286 PN=PN-INT(PN*(H/100))
  158. 288 IN$(1)="[211]OLDIER":IN$(2)="[205]ARKET":IN$(3)="[205]ILL":IN$(4)="[208]ALACE"
  159. 290 IN$(5)="[198]OUNDRY":IN$(6)="[211]HIPYARD":IN$(7)="[206]OBLE":IN$(8)="[196]IPLOMAT"
  160. 291 IN$(9)="[211]HIP"
  161. 292 IN(1)=10:IN(2)=1000:IN(3)=2000:IN(4)=10000:IN(5)=7000:IN(6)=8000
  162. 294 IN(7)=25000:IN(8)=50000:IN(9)=5000
  163. 296 &"[139][139]\C3[215]HICH [201]NVESTMENT?[139](0=[206]ONE,?=[204]IST,[217]=[217]OUR [211]TATS)[139]\CN>>\CO"
  164. 298 GOSUB1006:ONTR%<1GOTO105:IFLEN(AN$)>2THEN296
  165. 300 IFAN$="[137]"THENGOSUB370:GOTO296
  166. 302 IN=INT(VAL(AN$)):IFAN$="0"ORAN$=""THEN351
  167. 304 ON-(AN$="[217]")GOSUB70:IFIN<1ORIN>9THEN296
  168. 306 &"[139][139]\CO[201]NVESTMENT: \C2"+IN$(IN)+".[139]\CO[194]UY HOW MANY? \CN":GOSUB1006
  169. 308 ONTR%<1GOTO105:IFLEN(AN$)>3THEN306
  170. 310 BN=INT(VAL(AN$)):IFBN<1THEN296
  171. 312 TC=BN*IN(IN):IFTC>PNTHEN:&"\C2[217]OU ONLY HAVE"+STR$(PN)+" DOLLARS!":GOTO306
  172. 314 ONINGOTO316,324,326,328,334,336,338,342,345
  173. 316 IFBN+WA>NB*20THEN:&"[139][139]\C7[217]OU ONLY HAVE"+STR$(NB)+" NOBLES!":GOTO296
  174. 318 IFBN+WA>(F%(4)+1)*100THEN:&"[139][139]\C7[217]OU ONLY HAVE"+STR$(F%(4))+" FOUNDRIES!":GOTO296
  175. 320 IFBN+WA>SF/3THEN388
  176. 322 WA=WA+BN:SF=SF-BN:GOSUB350:&STR$(WA)+" "+IN$(IN)+"S.":GOTO296
  177. 324 F%(2)=F%(2)+BN:GOSUB350:&STR$(F%(2))+" "+IN$(IN)+"S.":GOTO296
  178. 326 F%(3)=F%(3)+BN:GOSUB350:&STR$(F%(3))+" "+IN$(IN)+"S.":GOTO296
  179. 328 IFF%(1)+BN>10THEN:&"[139]\C2[217]OU CAN ONLY HAVE 100% OF YOU [208]ALACE!\CO":GOTO296
  180. 330 F%(1)=F%(1)+BN:GOSUB350:&STR$(F%(1)*10)+"% OF THE "+IN$(IN)+",":NB=NB+BN
  181. 332 &"[139]AND"+STR$(NB)+" NOBLES.":GOTO296
  182. 334 F%(4)=F%(4)+BN:GOSUB350:&STR$(F%(4))+" "+IN$(IN)+"S.":GOTO296
  183. 336 F%(5)=F%(5)+BN:GOSUB350:&STR$(F%(5))+" "+IN$(IN)+"S.":GOTO296
  184. 338 IFNB+BN<SF/100THENNB=NB+BN:GOSUB350:&STR$(NB)+" "+IN$(IN)+"S.":GOTO296
  185. 340 &"[139]\CO[217]OUR SERFS ARE TOO FEW TO SUPPORT THAT[139]MANY NOBLES!":GOTO296
  186. 342 IFF%(6)+BN>3THEN:&"[139]\CN[217]OU CAN ONLY HAVE 3 [196]IPLOMATS AT ANY TIME![139]":GOTO296
  187. 344 F%(6)=F%(6)+BN:GOSUB350:&STR$(F%(6))+" "+IN$(IN)+"S.":GOTO296
  188. 345 IFBN+YC>(F%(5)+1)*50THEN:&"[139][139]\C7[217]OU ONLY HAVE"+STR$(F%(5))+" SHIPYARDS!":GOTO296
  189. 346 YC=YC+BN:GOSUB350:&STR$(YC)+" "+IN$(IN)+"S.":GOTO296
  190. 347 GOTO351
  191. 350 PN=PN-TC:&"[139]\C7[217]OU NOW HAVE":RETURN
  192. 351 &"[139][139]\C3[195]OLONY [212]RIP? ([217]/[206]) >>\C1":GOSUB1902:ONAGOTO352:GOTO353
  193. 352 &"[139][139]\CJ[200]EADING DOWN TO THE [211]HIPYARDS....[139][139]":DR=5:A$="EMPCOL4":GOTO1067
  194. 353 &"[139][139]\C2[200]EADING TO THE [194]ATTLE [199]ROUNDS....[139][139]":DR=5:A$="EMPCOM4":GOTO1067
  195. 354 &"\C7\F1\N2[197]MPIRE [205]ENU[139]\C1[175][175][175][175][175][175][175][175][175][175][175][175][175][139][139]"
  196. 356 &"[139]\C3[[209]][146] \CN[209]UIT[139]"
  197. 358 &"\C3[[217]][146] \CN[217]OUR [211]TATS[139]"
  198. 360 &"\C3[[207]][146] \CN[207]THER [210]ULERS[139]"
  199. 362 &"\C3[[208]][146] \CN[208]LAY [197]MPIRE[139]"
  200. 364 &"\C3[[206]][146] \CN[197]MPIRE [206]EWS[139]"
  201. 366 &"\C3[[212]][146] \CN[212]OWN [193]CTIVITIES[139]"
  202. 368 &"\C3[[201]][146] \CN[201]NSTRUCTIONS[139]"
  203. 369 ON-(E9<1)GOTO1029:&"\C3[[205]][146] \CN[205]AINTENANCE[139]":GOTO1029
  204. 370 &"\CN\F1\N2  [201]NVESTMENT [207]PTIONS[139] \C1[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][139][139]"
  205. 372 &"[139]\C7[1][146]\C1 [211]OLDIER       \C5$10[139]"
  206. 374 &"\C7[2][146]\C1 [205]ARKETPLACE  \C5$1000[139]"
  207. 376 &"\C7[3][146]\C1 [199]RAIN [205]ILL   \C5$2000[139]"
  208. 378 &"\C7[4][146]\C1 [208]ALACE     \C5$10000[139]"
  209. 380 &"\C7[5][146]\C1 [198]OUNDRY     \C5$7000[139]"
  210. 382 &"\C7[6][146]\C1 [211]HIPYARD    \C5$8000[139]"
  211. 384 &"\C7[7][146]\C1 [206]OBLE      \C5$25000[139]"
  212. 386 &"\C7[8][146]\C1 [196]IPLOMAT   \C5$50000[139]"
  213. 387 &"\C7[9][146]\C1 [211]HIP        \C5$5000[139]":GOTO1029
  214. 388 &"[139][139][139]\CM[217]OU ONLY HAVE"+STR$(INT(SF/3-WA))+" MORE MALE SERFS"
  215. 390 &" OF[139]FIGHTING AGE!\CO":GOTO296
  216. 392 DR=3:A$="E.EMPNEWS,S,A":GOTO1011
  217. 394 D2$="[204][207][210][196] ":IFTZ=1THEND2$="[208][210][201][206][195][197] "
  218. 396 IFTZ=2THEND2$="[203][201][206][199] "
  219. 398 IFTZ=3THEND2$="[197][205][208][197][210][207][210] "
  220. 400 RETURN
  221. 402 TZ=0:REM CALCULATE TITLE
  222. 403 I1=F%(1):I2=F%(2):I3=F%(3):I4=F%(4):I5=F%(5):I6=F%(6)
  223. 404 IFI2>9ANDI6>0ANDI3>5ANDI4>1ANDI5>1ANDI1>2AND(LA/SF>5.1)ANDNB>15ANDSF>3000THENGOSUB412
  224. 406 IFI2>15ANDI3>9ANDI6>2ANDI4>6ANDI5>4ANDI1>6AND(LA/SF>10.5)ANDSF>3500ANDNB>30THENGOSUB414
  225. 408 IFI2>23ANDI3>9ANDI6>2ANDI4>13ANDI5>11ANDI1>9AND(LA/SF>23.4)ANDSF>5499ANDNB>62THENGOSUB416
  226. 410 TY=TZ:RETURN
  227. 412 D2$="[208][210][201][206][195][197] ":TZ=1:RETURN
  228. 414 D2$="[203][201][206][199] ":TZ=2:RETURN
  229. 416 D2$="[197][205][208][197][210][207][210] ":TZ=3
  230. 418 RETURN
  231. 420 IFE9<1THEN26
  232. 422 &"[139][139]\C3[197]XITING [197]MPIRE...":GOSUB48:&"\H9\H8\C1[204]OADING [197]MPIRE [205]AINT..."
  233. 424 &,28:DR=5:A$="EMPMAINT4":GOTO1067
  234. 999 REM EMPIRE IV CONVERTED TO IMAGE BY     UTOPIA BBS 702-735-6787 24 HOURS
  235.